use XmlElementObj;

use strict;
use Data::Dumper;

my $a=XmlElementObj->new("abc");

my $b=XmlElementObj->new("bbb");
$a->AddChild(\$b);

print Dumper($a);
#print "---------------\n";
#print Dumper($b);

#use XmlSaxParser(qw/ParseFile/);

#&ParseFile('./test.xml');

